/ SGI Freeware 1999 August / SGI Freeware 1999 August.iso / dist / fw_emacs.idb / usr / freeware / share / emacs / 19.34 / lisp / elp.elc.z / elp.elc

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 3b 45 4c 43 13 00 00 00 | 0a 3b 3b 3b 20 63 6f 6d |;ELC....|.;;; com|
|00000010| 70 69 6c 65 64 20 62 79 | 20 72 6d 73 40 6d 6f 6c |piled by| rms@mol|
|00000020| 65 2e 67 6e 75 2e 61 69 | 2e 6d 69 74 2e 65 64 75 |e.gnu.ai|.mit.edu|
|00000030| 20 6f 6e 20 46 72 69 20 | 4d 61 72 20 32 32 20 31 | on Fri |Mar 22 1|
|00000040| 32 3a 31 36 3a 34 30 20 | 31 39 39 36 0a 3b 3b 3b |2:16:40 |1996.;;;|
|00000050| 20 66 72 6f 6d 20 66 69 | 6c 65 20 2f 67 64 2f 67 | from fi|le /gd/g|
|00000060| 6e 75 2f 65 6d 61 63 73 | 2f 31 39 2e 30 2f 6c 69 |nu/emacs|/19.0/li|
|00000070| 73 70 2f 65 6c 70 2e 65 | 6c 0a 3b 3b 3b 20 65 6d |sp/elp.e|l.;;; em|
|00000080| 61 63 73 20 76 65 72 73 | 69 6f 6e 20 31 39 2e 33 |acs vers|ion 19.3|
|00000090| 30 2e 39 35 2e 31 2e 0a | 3b 3b 3b 20 62 79 74 65 |0.95.1..|;;; byte|
|000000a0| 63 6f 6d 70 20 76 65 72 | 73 69 6f 6e 20 46 53 46 |comp ver|sion FSF|
|000000b0| 20 32 2e 31 30 0a 3b 3b | 3b 20 6f 70 74 69 6d 69 | 2.10.;;|; optimi|
|000000c0| 7a 61 74 69 6f 6e 20 69 | 73 20 6f 6e 2e 0a 3b 3b |zation i|s on..;;|
|000000d0| 3b 20 74 68 69 73 20 66 | 69 6c 65 20 75 73 65 73 |; this f|ile uses|
|000000e0| 20 6f 70 63 6f 64 65 73 | 20 77 68 69 63 68 20 64 | opcodes| which d|
|000000f0| 6f 20 6e 6f 74 20 65 78 | 69 73 74 20 69 6e 20 45 |o not ex|ist in E|
|00000100| 6d 61 63 73 20 31 38 2e | 0a 0a 28 69 66 20 28 61 |macs 18.|..(if (a|
|00000110| 6e 64 20 28 62 6f 75 6e | 64 70 20 27 65 6d 61 63 |nd (boun|dp 'emac|
|00000120| 73 2d 76 65 72 73 69 6f | 6e 29 0a 09 20 28 6f 72 |s-versio|n).. (or|
|00000130| 20 28 61 6e 64 20 28 62 | 6f 75 6e 64 70 20 27 65 | (and (b|oundp 'e|
|00000140| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 20 65 |poch::ve|rsion) e|
|00000150| 70 6f 63 68 3a 3a 76 65 | 72 73 69 6f 6e 29 0a 09 |poch::ve|rsion)..|
|00000160| 20 20 20 20 20 28 73 74 | 72 69 6e 67 2d 6c 65 73 |     (st|ring-les|
|00000170| 73 70 20 65 6d 61 63 73 | 2d 76 65 72 73 69 6f 6e |sp emacs|-version|
|00000180| 20 22 31 39 2e 32 39 22 | 29 29 29 0a 20 20 20 20 | "19.29"|))).    |
|00000190| 28 65 72 72 6f 72 20 22 | 60 65 6c 70 2e 65 6c 27 |(error "|`elp.el'|
|000001a0| 20 77 61 73 20 63 6f 6d | 70 69 6c 65 64 20 66 6f | was com|piled fo|
|000001b0| 72 20 45 6d 61 63 73 20 | 31 39 2e 32 39 20 6f 72 |r Emacs |19.29 or|
|000001c0| 20 6c 61 74 65 72 22 29 | 29 0a 0a 0a 23 40 33 31 | later")|)...#@31|
|000001d0| 20 2a 4c 69 73 74 20 6f | 66 20 66 75 6e 63 74 69 | *List o|f functi|
|000001e0| 6f 6e 20 74 6f 20 70 72 | 6f 66 69 6c 65 2e 1f 0a |on to pr|ofile...|
|000001f0| 28 64 65 66 76 61 72 20 | 65 6c 70 2d 66 75 6e 63 |(defvar |elp-func|
|00000200| 74 69 6f 6e 2d 6c 69 73 | 74 20 6e 69 6c 20 28 23 |tion-lis|t nil (#|
|00000210| 24 20 2e 20 2d 34 36 35 | 29 29 0a 23 40 31 32 34 |$ . -465|)).#@124|
|00000220| 20 2a 4e 6f 6e 2d 6e 69 | 6c 20 6d 65 61 6e 73 20 | *Non-ni|l means |
|00000230| 72 65 73 65 74 20 61 6c | 6c 20 70 72 6f 66 69 6c |reset al|l profil|
|00000240| 69 6e 67 20 69 6e 66 6f | 20 61 66 74 65 72 20 72 |ing info| after r|
|00000250| 65 73 75 6c 74 73 20 61 | 72 65 20 64 69 73 70 6c |esults a|re displ|
|00000260| 61 79 65 64 2e 0a 52 65 | 73 75 6c 74 73 20 61 72 |ayed..Re|sults ar|
|00000270| 65 20 64 69 73 70 6c 61 | 79 65 64 20 77 69 74 68 |e displa|yed with|
|00000280| 20 74 68 65 20 60 65 6c | 70 2d 72 65 73 75 6c 74 | the `el|p-result|
|00000290| 73 27 20 63 6f 6d 6d 61 | 6e 64 2e 1f 0a 28 64 65 |s' comma|nd...(de|
|000002a0| 66 76 61 72 20 65 6c 70 | 2d 72 65 73 65 74 2d 61 |fvar elp|-reset-a|
|000002b0| 66 74 65 72 2d 72 65 73 | 75 6c 74 73 20 74 20 28 |fter-res|ults t (|
|000002c0| 23 24 20 2e 20 2d 35 34 | 35 29 29 0a 23 40 36 34 |#$ . -54|5)).#@64|
|000002d0| 31 20 2a 4e 6f 6e 2d 6e | 69 6c 20 73 70 65 63 69 |1 *Non-n|il speci|
|000002e0| 66 69 65 73 20 65 6c 70 | 20 72 65 73 75 6c 74 73 |fies elp| results|
|000002f0| 20 73 6f 72 74 69 6e 67 | 20 66 75 6e 63 74 69 6f | sorting| functio|
|00000300| 6e 2e 0a 54 68 65 73 65 | 20 66 75 6e 63 74 69 6f |n..These| functio|
|00000310| 6e 73 20 61 72 65 20 63 | 75 72 72 65 6e 74 6c 79 |ns are c|urrently|
|00000320| 20 61 76 61 69 6c 61 62 | 6c 65 3a 0a 0a 20 20 65 | availab|le:..  e|
|00000330| 6c 70 2d 73 6f 72 74 2d | 62 79 2d 63 61 6c 6c 2d |lp-sort-|by-call-|
|00000340| 63 6f 75 6e 74 20 20 20 | 2d 2d 20 73 6f 72 74 20 |count   |-- sort |
|00000350| 62 79 20 74 68 65 20 68 | 69 67 68 65 73 74 20 63 |by the h|ighest c|
|00000360| 61 6c 6c 20 63 6f 75 6e | 74 0a 20 20 65 6c 70 2d |all coun|t.  elp-|
|00000370| 73 6f 72 74 2d 62 79 2d | 74 6f 74 61 6c 2d 74 69 |sort-by-|total-ti|
|00000380| 6d 65 20 20 20 2d 2d 20 | 73 6f 72 74 20 62 79 20 |me   -- |sort by |
|00000390| 74 68 65 20 68 69 67 68 | 65 73 74 20 74 6f 74 61 |the high|est tota|
|000003a0| 6c 20 74 69 6d 65 0a 20 | 20 65 6c 70 2d 73 6f 72 |l time. | elp-sor|
|000003b0| 74 2d 62 79 2d 61 76 65 | 72 61 67 65 2d 74 69 6d |t-by-ave|rage-tim|
|000003c0| 65 20 2d 2d 20 73 6f 72 | 74 20 62 79 20 74 68 65 |e -- sor|t by the|
|000003d0| 20 68 69 67 68 65 73 74 | 20 61 76 65 72 61 67 65 | highest| average|
|000003e0| 20 74 69 6d 65 73 0a 0a | 59 6f 75 20 63 61 6e 20 | times..|You can |
|000003f0| 77 72 69 74 65 20 79 6f | 75 27 72 65 20 6f 77 6e |write yo|u're own|
|00000400| 20 73 6f 72 74 20 66 75 | 6e 63 74 69 6f 6e 2e 20 | sort fu|nction. |
|00000410| 49 74 20 73 68 6f 75 6c | 64 20 61 64 68 65 72 65 |It shoul|d adhere|
|00000420| 20 74 6f 20 74 68 65 0a | 69 6e 74 65 72 66 61 63 | to the.|interfac|
|00000430| 65 20 73 70 65 63 69 66 | 69 65 64 20 62 79 20 74 |e specif|ied by t|
|00000440| 68 65 20 50 52 45 44 20 | 61 72 67 75 6d 65 6e 74 |he PRED |argument|
|00000450| 20 66 6f 72 20 74 68 65 | 20 60 73 6f 72 74 27 20 | for the| `sort' |
|00000460| 64 65 66 75 6e 2e 20 20 | 45 61 63 68 0a 22 65 6c |defun.  |Each."el|
|00000470| 65 6d 65 6e 74 20 6f 66 | 20 4c 49 53 54 22 20 69 |ement of| LIST" i|
|00000480| 73 20 72 65 61 6c 6c 79 | 20 61 20 34 20 65 6c 65 |s really| a 4 ele|
|00000490| 6d 65 6e 74 20 76 65 63 | 74 6f 72 20 77 68 65 72 |ment vec|tor wher|
|000004a0| 65 20 65 6c 65 6d 65 6e | 74 20 30 20 69 73 0a 74 |e elemen|t 0 is.t|
|000004b0| 68 65 20 63 61 6c 6c 20 | 63 6f 75 6e 74 2c 20 65 |he call |count, e|
|000004c0| 6c 65 6d 65 6e 74 20 31 | 20 69 73 20 74 68 65 20 |lement 1| is the |
|000004d0| 74 6f 74 61 6c 20 74 69 | 6d 65 20 73 70 65 6e 74 |total ti|me spent|
|000004e0| 20 69 6e 20 74 68 65 20 | 66 75 6e 63 74 69 6f 6e | in the |function|
|000004f0| 2c 0a 65 6c 65 6d 65 6e | 74 20 32 20 69 73 20 74 |,.elemen|t 2 is t|
|00000500| 68 65 20 61 76 65 72 61 | 67 65 20 74 69 6d 65 20 |he avera|ge time |
|00000510| 73 70 65 6e 74 20 69 6e | 20 74 68 65 20 66 75 6e |spent in| the fun|
|00000520| 63 74 69 6f 6e 2c 20 61 | 6e 64 20 65 6c 65 6d 65 |ction, a|nd eleme|
|00000530| 6e 74 20 33 20 69 73 0a | 74 68 65 20 73 79 6d 62 |nt 3 is.|the symb|
|00000540| 6f 6c 27 73 20 6e 61 6d | 65 20 73 74 72 69 6e 67 |ol's nam|e string|
|00000550| 2e 1f 0a 28 64 65 66 76 | 61 72 20 65 6c 70 2d 73 |...(defv|ar elp-s|
|00000560| 6f 72 74 2d 62 79 2d 66 | 75 6e 63 74 69 6f 6e 20 |ort-by-f|unction |
|00000570| 6e 69 6c 20 28 23 24 20 | 2e 20 2d 37 32 32 29 29 |nil (#$ |. -722))|
|00000580| 0a 23 40 32 33 30 20 2a | 50 72 65 76 65 6e 74 73 |.#@230 *|Prevents|
|00000590| 20 73 6f 6d 65 20 66 75 | 6e 63 74 69 6f 6e 73 20 | some fu|nctions |
|000005a0| 66 72 6f 6d 20 62 65 69 | 6e 67 20 64 69 73 70 6c |from bei|ng displ|
|000005b0| 61 79 65 64 20 69 6e 20 | 74 68 65 20 72 65 73 75 |ayed in |the resu|
|000005c0| 6c 74 73 20 62 75 66 66 | 65 72 2e 0a 49 66 20 61 |lts buff|er..If a|
|000005d0| 20 6e 75 6d 62 65 72 2c | 20 6e 6f 20 66 75 6e 63 | number,| no func|
|000005e0| 74 69 6f 6e 20 74 68 61 | 74 20 68 61 73 20 62 65 |tion tha|t has be|
|000005f0| 65 6e 20 63 61 6c 6c 65 | 64 20 66 65 77 65 72 20 |en calle|d fewer |
|00000600| 74 68 61 6e 20 74 68 61 | 74 20 6e 75 6d 62 65 72 |than tha|t number|
|00000610| 0a 6f 66 20 74 69 6d 65 | 73 20 77 69 6c 6c 20 62 |.of time|s will b|
|00000620| 65 20 64 69 73 70 6c 61 | 79 65 64 20 69 6e 20 74 |e displa|yed in t|
|00000630| 68 65 20 6f 75 74 70 75 | 74 20 62 75 66 66 65 72 |he outpu|t buffer|
|00000640| 2e 20 20 49 66 20 6e 69 | 6c 2c 20 61 6c 6c 0a 66 |.  If ni|l, all.f|
|00000650| 75 6e 63 74 69 6f 6e 73 | 20 77 69 6c 6c 20 62 65 |unctions| will be|
|00000660| 20 64 69 73 70 6c 61 79 | 65 64 2e 1f 0a 28 64 65 | display|ed...(de|
|00000670| 66 76 61 72 20 65 6c 70 | 2d 72 65 70 6f 72 74 2d |fvar elp|-report-|
|00000680| 6c 69 6d 69 74 20 6e 69 | 6c 20 28 23 24 20 2e 20 |limit ni|l (#$ . |
|00000690| 2d 31 34 31 35 29 29 0a | 23 40 32 31 20 45 4c 50 |-1415)).|#@21 ELP|
|000006a0| 20 76 65 72 73 69 6f 6e | 20 6e 75 6d 62 65 72 2e | version| number.|
|000006b0| 1f 0a 28 64 65 66 63 6f | 6e 73 74 20 65 6c 70 2d |..(defco|nst elp-|
|000006c0| 76 65 72 73 69 6f 6e 20 | 22 32 2e 32 33 22 20 28 |version |"2.23" (|
|000006d0| 23 24 20 2e 20 31 36 39 | 33 29 29 0a 23 40 36 31 |#$ . 169|3)).#@61|
|000006e0| 20 41 64 64 72 65 73 73 | 20 61 63 63 65 70 74 69 | Address| accepti|
|000006f0| 6e 67 20 73 75 62 6d 69 | 73 73 69 6f 6e 73 20 6f |ng submi|ssions o|
|00000700| 66 20 62 75 67 20 72 65 | 70 6f 72 74 73 20 61 6e |f bug re|ports an|
|00000710| 64 20 71 75 65 73 74 69 | 6f 6e 73 2e 1f 0a 28 64 |d questi|ons...(d|
|00000720| 65 66 63 6f 6e 73 74 20 | 65 6c 70 2d 68 65 6c 70 |efconst |elp-help|
|00000730| 2d 61 64 64 72 65 73 73 | 20 22 74 6f 6f 6c 73 2d |-address| "tools-|
|00000740| 68 65 6c 70 40 61 6e 74 | 68 65 6d 2e 6e 6c 6d 2e |help@ant|hem.nlm.|
|00000750| 6e 69 68 2e 67 6f 76 22 | 20 28 23 24 20 2e 20 31 |nih.gov"| (#$ . 1|
|00000760| 37 36 31 29 29 0a 23 40 | 34 37 20 42 75 66 66 65 |761)).#@|47 Buffe|
|00000770| 72 20 6e 61 6d 65 20 66 | 6f 72 20 6f 75 74 70 75 |r name f|or outpu|
|00000780| 74 74 69 6e 67 20 70 72 | 6f 66 69 6c 69 6e 67 20 |tting pr|ofiling |
|00000790| 72 65 73 75 6c 74 73 2e | 1f 0a 28 64 65 66 76 61 |results.|..(defva|
|000007a0| 72 20 65 6c 70 2d 72 65 | 73 75 6c 74 73 2d 62 75 |r elp-re|sults-bu|
|000007b0| 66 66 65 72 20 22 2a 45 | 4c 50 20 50 72 6f 66 69 |ffer "*E|LP Profi|
|000007c0| 6c 69 6e 67 20 52 65 73 | 75 6c 74 73 2a 22 20 28 |ling Res|ults*" (|
|000007d0| 23 24 20 2e 20 31 38 39 | 39 29 29 0a 23 40 33 32 |#$ . 189|9)).#@32|
|000007e0| 20 45 4c 50 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e | ELP inf|ormation|
|000007f0| 20 70 72 6f 70 65 72 74 | 79 20 6e 61 6d 65 2e 1f | propert|y name..|
|00000800| 0a 28 64 65 66 63 6f 6e | 73 74 20 65 6c 70 2d 74 |.(defcon|st elp-t|
|00000810| 69 6d 65 72 2d 69 6e 66 | 6f 2d 70 72 6f 70 65 72 |imer-inf|o-proper|
|00000820| 74 79 20 28 71 75 6f 74 | 65 20 65 6c 70 2d 69 6e |ty (quot|e elp-in|
|00000830| 66 6f 29 20 28 23 24 20 | 2e 20 32 30 31 37 29 29 |fo) (#$ |. 2017))|
|00000840| 0a 23 40 35 33 20 4c 69 | 73 74 20 6f 66 20 61 6c |.#@53 Li|st of al|
|00000850| 6c 20 66 75 6e 63 74 69 | 6f 6e 73 20 63 75 72 72 |l functi|ons curr|
|00000860| 65 6e 74 6c 79 20 62 65 | 69 6e 67 20 69 6e 73 74 |ently be|ing inst|
|00000870| 72 75 6d 65 6e 74 65 64 | 2e 1f 0a 28 64 65 66 76 |rumented|...(defv|
|00000880| 61 72 20 65 6c 70 2d 61 | 6c 6c 2d 69 6e 73 74 72 |ar elp-a|ll-instr|
|00000890| 75 6d 65 6e 74 65 64 2d | 6c 69 73 74 20 6e 69 6c |umented-|list nil|
|000008a0| 20 28 23 24 20 2e 20 32 | 31 31 38 29 29 0a 23 40 | (#$ . 2|118)).#@|
|000008b0| 31 30 31 20 43 6f 6e 74 | 72 6f 6c 73 20 77 68 65 |101 Cont|rols whe|
|000008c0| 74 68 65 72 20 66 75 6e | 63 74 69 6f 6e 73 20 73 |ther fun|ctions s|
|000008d0| 68 6f 75 6c 64 20 72 65 | 63 6f 72 64 20 74 69 6d |hould re|cord tim|
|000008e0| 65 73 20 6f 72 20 6e 6f | 74 2e 0a 54 68 69 73 20 |es or no|t..This |
|000008f0| 76 61 72 69 61 62 6c 65 | 20 69 73 20 73 65 74 20 |variable| is set |
|00000900| 62 79 20 74 68 65 20 6d | 61 73 74 65 72 20 66 75 |by the m|aster fu|
|00000910| 6e 63 74 69 6f 6e 2e 1f | 0a 28 64 65 66 76 61 72 |nction..|.(defvar|
|00000920| 20 65 6c 70 2d 72 65 63 | 6f 72 64 2d 70 20 74 20 | elp-rec|ord-p t |
|00000930| 28 23 24 20 2e 20 32 32 | 32 38 29 29 0a 23 40 32 |(#$ . 22|28)).#@2|
|00000940| 35 20 4d 61 73 74 65 72 | 20 66 75 6e 63 74 69 6f |5 Master| functio|
|00000950| 6e 20 73 79 6d 62 6f 6c | 2e 1f 0a 28 64 65 66 76 |n symbol|...(defv|
|00000960| 61 72 20 65 6c 70 2d 6d | 61 73 74 65 72 20 6e 69 |ar elp-m|aster ni|
|00000970| 6c 20 28 23 24 20 2e 20 | 32 33 37 30 29 29 0a 23 |l (#$ . |2370)).#|
|00000980| 40 38 31 20 49 6e 73 74 | 72 75 6d 65 6e 74 20 46 |@81 Inst|rument F|
|00000990| 55 4e 53 59 4d 20 66 6f | 72 20 70 72 6f 66 69 6c |UNSYM fo|r profil|
|000009a0| 69 6e 67 2e 0a 46 55 4e | 53 59 4d 20 6d 75 73 74 |ing..FUN|SYM must|
|000009b0| 20 62 65 20 61 20 73 79 | 6d 62 6f 6c 20 6f 66 20 | be a sy|mbol of |
|000009c0| 61 20 64 65 66 69 6e 65 | 64 20 66 75 6e 63 74 69 |a define|d functi|
|000009d0| 6f 6e 2e 1f 0a 28 64 65 | 66 61 6c 69 61 73 20 27 |on...(de|falias '|
|000009e0| 65 6c 70 2d 69 6e 73 74 | 72 75 6d 65 6e 74 2d 66 |elp-inst|rument-f|
|000009f0| 75 6e 63 74 69 6f 6e 20 | 23 5b 28 66 75 6e 73 79 |unction |#[(funsy|
|00000a00| 6d 29 20 22 08 4b 19 c2 | c3 89 09 23 1c c5 1e 06 |m) ".K..|...#....|
|00000a10| 09 a2 c7 3d 83 18 00 c8 | c9 08 5c 22 88 ca 08 21 |...=....|..\"...!|
|00000a20| 83 25 00 cb 0e 06 cc 5c | 22 16 06 cb 0e 06 cd ce |.%.....\|".......|
|00000a30| 08 44 cf d0 ca 08 21 3f | 3f 45 d1 46 43 5c 22 16 |.D....!?|?E.FC\".|
|00000a40| 06 d2 08 0e 13 5c 66 23 | 88 08 0e 06 4d 88 08 0e |.....\f#|....M...|
|00000a50| 14 3e 86 54 00 08 0e 14 | 42 89 16 14 2b 87 22 20 |.>.T....|B...+." |
|00000a60| 5b 66 75 6e 73 79 6d 20 | 66 75 6e 67 75 74 73 20 |[funsym |funguts |
|00000a70| 76 65 63 74 6f 72 20 30 | 20 69 6e 66 6f 76 65 63 |vector 0| infovec|
|00000a80| 20 28 6c 61 6d 62 64 61 | 20 28 26 72 65 73 74 20 | (lambda| (&rest |
|00000a90| 61 72 67 73 29 29 20 6e | 65 77 67 75 74 73 20 6d |args)) n|ewguts m|
|00000aa0| 61 63 72 6f 20 65 72 72 | 6f 72 20 22 45 4c 50 20 |acro err|or "ELP |
|00000ab0| 63 61 6e 6e 6f 74 20 70 | 72 6f 66 69 6c 65 20 6d |cannot p|rofile m|
|00000ac0| 61 63 72 6f 20 25 73 22 | 20 63 6f 6d 6d 61 6e 64 |acro %s"| command|
|00000ad0| 70 20 61 70 70 65 6e 64 | 20 28 28 69 6e 74 65 72 |p append| ((inter|
|00000ae0| 61 63 74 69 76 65 29 29 | 20 65 6c 70 2d 77 72 61 |active))| elp-wra|
|00000af0| 70 70 65 72 20 71 75 6f | 74 65 20 61 6e 64 20 28 |pper quo|te and (|
|00000b00| 69 6e 74 65 72 61 63 74 | 69 76 65 2d 70 29 20 61 |interact|ive-p) a|
|00000b10| 72 67 73 20 70 75 74 20 | 65 6c 70 2d 74 69 6d 65 |rgs put |elp-time|
|00000b20| 72 2d 69 6e 66 6f 2d 70 | 72 6f 70 65 72 74 79 20 |r-info-p|roperty |
|00000b30| 65 6c 70 2d 61 6c 6c 2d | 69 6e 73 74 72 75 6d 65 |elp-all-|instrume|
|00000b40| 6e 74 65 64 2d 6c 69 73 | 74 5d 20 38 20 28 23 24 |nted-lis|t] 8 (#$|
|00000b50| 20 2e 20 32 34 33 36 29 | 20 22 61 46 75 6e 63 74 | . 2436)| "aFunct|
|00000b60| 69 6f 6e 20 74 6f 20 69 | 6e 73 74 72 75 6d 65 6e |ion to i|nstrumen|
|00000b70| 74 3a 20 22 5d 29 0a 23 | 40 31 31 35 20 52 65 73 |t: "]).#|@115 Res|
|00000b80| 74 6f 72 65 20 61 6e 20 | 69 6e 73 74 72 75 6d 65 |tore an |instrume|
|00000b90| 6e 74 65 64 20 66 75 6e | 63 74 69 6f 6e 20 74 6f |nted fun|ction to|
|00000ba0| 20 69 74 73 20 6f 72 69 | 67 69 6e 61 6c 20 64 65 | its ori|ginal de|
|00000bb0| 66 69 6e 69 74 69 6f 6e | 2e 0a 41 72 67 75 6d 65 |finition|..Argume|
|00000bc0| 6e 74 20 46 55 4e 53 59 | 4d 20 69 73 20 74 68 65 |nt FUNSY|M is the|
|00000bd0| 20 73 79 6d 62 6f 6c 20 | 6f 66 20 61 20 64 65 66 | symbol |of a def|
|00000be0| 69 6e 65 64 20 66 75 6e | 63 74 69 6f 6e 2e 1f 0a |ined fun|ction...|
|00000bf0| 28 64 65 66 61 6c 69 61 | 73 20 27 65 6c 70 2d 72 |(defalia|s 'elp-r|
|00000c00| 65 73 74 6f 72 65 2d 66 | 75 6e 63 74 69 6f 6e 20 |estore-f|unction |
|00000c10| 23 5b 28 66 75 6e 73 79 | 6d 29 20 22 08 09 4e 1a |#[(funsy|m) "..N.|
|00000c20| c3 08 5c 66 5c 22 14 08 | 0d 3d 83 14 00 c6 15 c7 |..\f\"..|.=......|
|00000c30| 16 08 c9 08 09 c6 23 88 | 5c 6e 85 2a 00 ca 08 4b |......#.|\n.*...K|
|00000c40| 9e 85 2a 00 08 5c 6e cb | 48 4d 29 87 22 20 5b 66 |..*..\n.|HM)." [f|
|00000c50| 75 6e 73 79 6d 20 65 6c | 70 2d 74 69 6d 65 72 2d |unsym el|p-timer-|
|00000c60| 69 6e 66 6f 2d 70 72 6f | 70 65 72 74 79 20 69 6e |info-pro|perty in|
|00000c70| 66 6f 20 64 65 6c 71 20 | 65 6c 70 2d 61 6c 6c 2d |fo delq |elp-all-|
|00000c80| 69 6e 73 74 72 75 6d 65 | 6e 74 65 64 2d 6c 69 73 |instrume|nted-lis|
|00000c90| 74 20 65 6c 70 2d 6d 61 | 73 74 65 72 20 6e 69 6c |t elp-ma|ster nil|
|00000ca0| 20 74 20 65 6c 70 2d 72 | 65 63 6f 72 64 2d 70 20 | t elp-r|ecord-p |
|00000cb0| 70 75 74 20 65 6c 70 2d | 77 72 61 70 70 65 72 20 |put elp-|wrapper |
|00000cc0| 32 5d 20 34 20 28 23 24 | 20 2e 20 32 39 34 31 29 |2] 4 (#$| . 2941)|
|00000cd0| 20 22 61 46 75 6e 63 74 | 69 6f 6e 20 74 6f 20 72 | "aFunct|ion to r|
|00000ce0| 65 73 74 6f 72 65 3a 20 | 22 5d 29 0a 23 40 31 30 |estore: |"]).#@10|
|00000cf0| 34 20 49 6e 73 74 72 75 | 6d 65 6e 74 20 66 6f 72 |4 Instru|ment for|
|00000d00| 20 70 72 6f 66 69 6c 69 | 6e 67 2c 20 61 6c 6c 20 | profili|ng, all |
|00000d10| 66 75 6e 63 74 69 6f 6e | 73 20 69 6e 20 60 65 6c |function|s in `el|
|00000d20| 70 2d 66 75 6e 63 74 69 | 6f 6e 2d 6c 69 73 74 27 |p-functi|on-list'|
|00000d30| 2e 0a 55 73 65 20 6f 70 | 74 69 6f 6e 61 6c 20 4c |..Use op|tional L|
|00000d40| 49 53 54 20 69 66 20 70 | 72 6f 76 69 64 65 64 20 |IST if p|rovided |
|00000d50| 69 6e 73 74 65 61 64 2e | 1f 0a 28 64 65 66 61 6c |instead.|..(defal|
|00000d60| 69 61 73 20 27 65 6c 70 | 2d 69 6e 73 74 72 75 6d |ias 'elp|-instrum|
|00000d70| 65 6e 74 2d 6c 69 73 74 | 20 23 5b 28 26 6f 70 74 |ent-list| #[(&opt|
|00000d80| 69 6f 6e 61 6c 20 6c 69 | 73 74 29 20 22 08 86 05 |ional li|st) "...|
|00000d90| 00 09 18 c2 c3 08 5c 22 | 29 87 22 20 5b 6c 69 73 |......\"|)." [lis|
|00000da0| 74 20 65 6c 70 2d 66 75 | 6e 63 74 69 6f 6e 2d 6c |t elp-fu|nction-l|
|00000db0| 69 73 74 20 6d 61 70 63 | 61 72 20 65 6c 70 2d 69 |ist mapc|ar elp-i|
|00000dc0| 6e 73 74 72 75 6d 65 6e | 74 2d 66 75 6e 63 74 69 |nstrumen|t-functi|
|00000dd0| 6f 6e 5d 20 33 20 28 23 | 24 20 2e 20 33 33 31 34 |on] 3 (#|$ . 3314|
|00000de0| 29 20 22 50 4c 69 73 74 | 20 6f 66 20 66 75 6e 63 |) "PList| of func|
|00000df0| 74 69 6f 6e 73 20 74 6f | 20 69 6e 73 74 72 75 6d |tions to| instrum|
|00000e00| 65 6e 74 3a 20 22 5d 29 | 0a 23 40 31 37 34 20 49 |ent: "])|.#@174 I|
|00000e10| 6e 73 74 72 75 6d 65 6e | 74 20 66 6f 72 20 70 72 |nstrumen|t for pr|
|00000e20| 6f 66 69 6c 69 6e 67 2c | 20 61 6c 6c 20 66 75 6e |ofiling,| all fun|
|00000e30| 63 74 69 6f 6e 73 20 77 | 68 69 63 68 20 73 74 61 |ctions w|hich sta|
|00000e40| 72 74 20 77 69 74 68 20 | 50 52 45 46 49 58 2e 0a |rt with |PREFIX..|
|00000e50| 46 6f 72 20 65 78 61 6d | 70 6c 65 2c 20 74 6f 20 |For exam|ple, to |
|00000e60| 69 6e 73 74 72 75 6d 65 | 6e 74 20 61 6c 6c 20 45 |instrume|nt all E|
|00000e70| 4c 50 20 66 75 6e 63 74 | 69 6f 6e 73 2c 20 64 6f |LP funct|ions, do|
|00000e80| 20 74 68 65 20 66 6f 6c | 6c 6f 77 69 6e 67 3a 0a | the fol|lowing:.|
|00000e90| 0a 20 20 20 20 5c 5b 65 | 6c 70 2d 69 6e 73 74 72 |.    \[e|lp-instr|
|00000ea0| 75 6d 65 6e 74 2d 70 61 | 63 6b 61 67 65 5d 20 52 |ument-pa|ckage] R|
|00000eb0| 45 54 20 65 6c 70 2d 20 | 52 45 54 1f 0a 28 64 65 |ET elp- |RET..(de|
|00000ec0| 66 61 6c 69 61 73 20 27 | 65 6c 70 2d 69 6e 73 74 |falias '|elp-inst|
|00000ed0| 72 75 6d 65 6e 74 2d 70 | 61 63 6b 61 67 65 20 23 |rument-p|ackage #|
|00000ee0| 5b 28 70 72 65 66 69 78 | 29 20 22 c0 c1 c2 c3 5c |[(prefix|) "....\|
|00000ef0| 66 0d c6 23 5c 22 21 87 | 22 20 5b 65 6c 70 2d 69 |f..#\"!.|" [elp-i|
|00000f00| 6e 73 74 72 75 6d 65 6e | 74 2d 6c 69 73 74 20 6d |nstrumen|t-list m|
|00000f10| 61 70 63 61 72 20 69 6e | 74 65 72 6e 20 61 6c 6c |apcar in|tern all|
|00000f20| 2d 63 6f 6d 70 6c 65 74 | 69 6f 6e 73 20 70 72 65 |-complet|ions pre|
|00000f30| 66 69 78 20 6f 62 61 72 | 72 61 79 20 23 5b 28 73 |fix obar|ray #[(s|
|00000f40| 79 6d 29 20 22 c0 09 21 | 85 5c 66 00 09 4b a2 c2 |ym) "..!|.\f..K..|
|00000f50| 3e 3f 87 22 20 5b 66 62 | 6f 75 6e 64 70 20 73 79 |>?." [fb|oundp sy|
|00000f60| 6d 20 28 6d 61 63 72 6f | 20 6b 65 79 6d 61 70 20 |m (macro| keymap |
|00000f70| 61 75 74 6f 6c 6f 61 64 | 29 5d 20 32 5d 5d 20 37 |autoload|)] 2]] 7|
|00000f80| 20 28 23 24 20 2e 20 33 | 35 39 39 29 20 22 73 50 | (#$ . 3|599) "sP|
|00000f90| 72 65 66 69 78 20 6f 66 | 20 70 61 63 6b 61 67 65 |refix of| package|
|00000fa0| 20 74 6f 20 69 6e 73 74 | 72 75 6d 65 6e 74 3a 20 | to inst|rument: |
|00000fb0| 22 5d 29 0a 23 40 31 31 | 35 20 52 65 73 74 6f 72 |"]).#@11|5 Restor|
|00000fc0| 65 20 74 68 65 20 6f 72 | 69 67 69 6e 61 6c 20 64 |e the or|iginal d|
|00000fd0| 65 66 69 6e 69 74 69 6f | 6e 73 20 66 6f 72 20 61 |efinitio|ns for a|
|00000fe0| 6c 6c 20 66 75 6e 63 74 | 69 6f 6e 73 20 69 6e 20 |ll funct|ions in |
|00000ff0| 60 65 6c 70 2d 66 75 6e | 63 74 69 6f 6e 2d 6c 69 |`elp-fun|ction-li|
|00001000| 73 74 27 2e 0a 55 73 65 | 20 6f 70 74 69 6f 6e 61 |st'..Use| optiona|
|00001010| 6c 20 4c 49 53 54 20 69 | 66 20 70 72 6f 76 69 64 |l LIST i|f provid|
|00001020| 65 64 20 69 6e 73 74 65 | 61 64 2e 1f 0a 28 64 65 |ed inste|ad...(de|
|00001030| 66 61 6c 69 61 73 20 27 | 65 6c 70 2d 72 65 73 74 |falias '|elp-rest|
|00001040| 6f 72 65 2d 6c 69 73 74 | 20 23 5b 28 26 6f 70 74 |ore-list| #[(&opt|
|00001050| 69 6f 6e 61 6c 20 6c 69 | 73 74 29 20 22 08 86 05 |ional li|st) "...|
|00001060| 00 09 18 c2 c3 08 5c 22 | 29 87 22 20 5b 6c 69 73 |......\"|)." [lis|
|00001070| 74 20 65 6c 70 2d 66 75 | 6e 63 74 69 6f 6e 2d 6c |t elp-fu|nction-l|
|00001080| 69 73 74 20 6d 61 70 63 | 61 72 20 65 6c 70 2d 72 |ist mapc|ar elp-r|
|00001090| 65 73 74 6f 72 65 2d 66 | 75 6e 63 74 69 6f 6e 5d |estore-f|unction]|
|000010a0| 20 33 20 28 23 24 20 2e | 20 34 30 32 36 29 20 22 | 3 (#$ .| 4026) "|
|000010b0| 50 4c 69 73 74 20 6f 66 | 20 66 75 6e 63 74 69 6f |PList of| functio|
|000010c0| 6e 73 20 74 6f 20 72 65 | 73 74 6f 72 65 3a 20 22 |ns to re|store: "|
|000010d0| 5d 29 0a 23 40 36 38 20 | 52 65 73 74 6f 72 65 73 |]).#@68 |Restores|
|000010e0| 20 74 68 65 20 6f 72 69 | 67 69 6e 61 6c 20 64 65 | the ori|ginal de|
|000010f0| 66 69 6e 69 74 69 6f 6e | 73 20 6f 66 20 61 6c 6c |finition|s of all|
|00001100| 20 66 75 6e 63 74 69 6f | 6e 73 20 62 65 69 6e 67 | functio|ns being|
|00001110| 20 70 72 6f 66 69 6c 65 | 64 2e 1f 0a 28 64 65 66 | profile|d...(def|
|00001120| 61 6c 69 61 73 20 27 65 | 6c 70 2d 72 65 73 74 6f |alias 'e|lp-resto|
|00001130| 72 65 2d 61 6c 6c 20 23 | 5b 6e 69 6c 20 22 c0 09 |re-all #|[nil "..|
|00001140| 21 87 22 20 5b 65 6c 70 | 2d 72 65 73 74 6f 72 65 |!." [elp|-restore|
|00001150| 2d 6c 69 73 74 20 65 6c | 70 2d 61 6c 6c 2d 69 6e |-list el|p-all-in|
|00001160| 73 74 72 75 6d 65 6e 74 | 65 64 2d 6c 69 73 74 5d |strument|ed-list]|
|00001170| 20 32 20 28 23 24 20 2e | 20 34 33 31 32 29 20 6e | 2 (#$ .| 4312) n|
|00001180| 69 6c 5d 29 0a 23 40 34 | 35 20 52 65 73 65 74 20 |il]).#@4|5 Reset |
|00001190| 74 68 65 20 70 72 6f 66 | 69 6c 69 6e 67 20 69 6e |the prof|iling in|
|000011a0| 66 6f 72 6d 61 74 69 6f | 6e 20 66 6f 72 20 46 55 |formatio|n for FU|
|000011b0| 4e 53 59 4d 2e 1f 0a 28 | 64 65 66 61 6c 69 61 73 |NSYM...(|defalias|
|000011c0| 20 27 65 6c 70 2d 72 65 | 73 65 74 2d 66 75 6e 63 | 'elp-re|set-func|
|000011d0| 74 69 6f 6e 20 23 5b 28 | 66 75 6e 73 79 6d 29 20 |tion #[(|funsym) |
|000011e0| 22 08 09 4e 89 1a 84 0d | 00 c3 c4 08 5c 22 88 5c |"..N....|....\".\|
|000011f0| 6e c5 89 49 88 5c 6e c6 | c7 49 29 87 22 20 5b 66 |n..I.\n.|.I)." [f|
|00001200| 75 6e 73 79 6d 20 65 6c | 70 2d 74 69 6d 65 72 2d |unsym el|p-timer-|
|00001210| 69 6e 66 6f 2d 70 72 6f | 70 65 72 74 79 20 69 6e |info-pro|perty in|
|00001220| 66 6f 20 65 72 72 6f 72 | 20 22 25 73 20 69 73 20 |fo error| "%s is |
|00001230| 6e 6f 74 20 69 6e 73 74 | 72 75 6d 65 6e 74 65 64 |not inst|rumented|
|00001240| 20 66 6f 72 20 70 72 6f | 66 69 6c 69 6e 67 2e 22 | for pro|filing."|
|00001250| 20 30 20 31 20 30 2e 30 | 5d 20 34 20 28 23 24 20 | 0 1 0.0|] 4 (#$ |
|00001260| 2e 20 34 34 39 30 29 20 | 22 61 46 75 6e 63 74 69 |. 4490) |"aFuncti|
|00001270| 6f 6e 20 74 6f 20 72 65 | 73 65 74 3a 20 22 5d 29 |on to re|set: "])|
|00001280| 0a 23 40 31 31 34 20 52 | 65 73 65 74 20 74 68 65 |.#@114 R|eset the|
|00001290| 20 70 72 6f 66 69 6c 69 | 6e 67 20 69 6e 66 6f 72 | profili|ng infor|
|000012a0| 6d 61 74 69 6f 6e 20 66 | 6f 72 20 61 6c 6c 20 66 |mation f|or all f|
|000012b0| 75 6e 63 74 69 6f 6e 73 | 20 69 6e 20 60 65 6c 70 |unctions| in `elp|
|000012c0| 2d 66 75 6e 63 74 69 6f | 6e 2d 6c 69 73 74 27 2e |-functio|n-list'.|
|000012d0| 0a 55 73 65 20 6f 70 74 | 69 6f 6e 61 6c 20 4c 49 |.Use opt|ional LI|
|000012e0| 53 54 20 69 66 20 70 72 | 6f 76 69 64 65 64 20 69 |ST if pr|ovided i|
|000012f0| 6e 73 74 65 61 64 2e 1f | 0a 28 64 65 66 61 6c 69 |nstead..|.(defali|
|00001300| 61 73 20 27 65 6c 70 2d | 72 65 73 65 74 2d 6c 69 |as 'elp-|reset-li|
|00001310| 73 74 20 23 5b 28 26 6f | 70 74 69 6f 6e 61 6c 20 |st #[(&o|ptional |
|00001320| 6c 69 73 74 29 20 22 08 | 86 05 00 09 18 c2 c3 08 |list) ".|........|
|00001330| 5c 22 29 87 22 20 5b 6c | 69 73 74 20 65 6c 70 2d |\")." [l|ist elp-|
|00001340| 66 75 6e 63 74 69 6f 6e | 2d 6c 69 73 74 20 6d 61 |function|-list ma|
|00001350| 70 63 61 72 20 65 6c 70 | 2d 72 65 73 65 74 2d 66 |pcar elp|-reset-f|
|00001360| 75 6e 63 74 69 6f 6e 5d | 20 33 20 28 23 24 20 2e |unction]| 3 (#$ .|
|00001370| 20 34 37 34 33 29 20 22 | 50 4c 69 73 74 20 6f 66 | 4743) "|PList of|
|00001380| 20 66 75 6e 63 74 69 6f | 6e 73 20 74 6f 20 72 65 | functio|ns to re|
|00001390| 73 65 74 3a 20 22 5d 29 | 0a 23 40 36 37 20 52 65 |set: "])|.#@67 Re|
|000013a0| 73 65 74 20 74 68 65 20 | 70 72 6f 66 69 6c 69 6e |set the |profilin|
|000013b0| 67 20 69 6e 66 6f 72 6d | 61 74 69 6f 6e 20 66 6f |g inform|ation fo|
|000013c0| 72 20 61 6c 6c 20 66 75 | 6e 63 74 69 6f 6e 73 20 |r all fu|nctions |
|000013d0| 62 65 69 6e 67 20 70 72 | 6f 66 69 6c 65 64 2e 1f |being pr|ofiled..|
|000013e0| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 65 6c 70 2d |.(defali|as 'elp-|
|000013f0| 72 65 73 65 74 2d 61 6c | 6c 20 23 5b 6e 69 6c 20 |reset-al|l #[nil |
|00001400| 22 c0 09 21 87 22 20 5b | 65 6c 70 2d 72 65 73 65 |"..!." [|elp-rese|
|00001410| 74 2d 6c 69 73 74 20 65 | 6c 70 2d 61 6c 6c 2d 69 |t-list e|lp-all-i|
|00001420| 6e 73 74 72 75 6d 65 6e | 74 65 64 2d 6c 69 73 74 |nstrumen|ted-list|
|00001430| 5d 20 32 20 28 23 24 20 | 2e 20 35 30 32 32 29 20 |] 2 (#$ |. 5022) |
|00001440| 6e 69 6c 5d 29 0a 23 40 | 34 30 20 53 65 74 20 74 |nil]).#@|40 Set t|
|00001450| 68 65 20 6d 61 73 74 65 | 72 20 66 75 6e 63 74 69 |he maste|r functi|
|00001460| 6f 6e 20 66 6f 72 20 70 | 72 6f 66 69 6c 69 6e 67 |on for p|rofiling|
|00001470| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 6c |...(defa|lias 'el|
|00001480| 70 2d 73 65 74 2d 6d 61 | 73 74 65 72 20 23 5b 28 |p-set-ma|ster #[(|
|00001490| 66 75 6e 73 79 6d 29 20 | 22 08 11 c2 13 08 5c 66 |funsym) |".....\f|
|000014a0| 3e 86 0d 00 c5 08 21 87 | 22 20 5b 66 75 6e 73 79 |>.....!.|" [funsy|
|000014b0| 6d 20 65 6c 70 2d 6d 61 | 73 74 65 72 20 6e 69 6c |m elp-ma|ster nil|
|000014c0| 20 65 6c 70 2d 72 65 63 | 6f 72 64 2d 70 20 65 6c | elp-rec|ord-p el|
|000014d0| 70 2d 61 6c 6c 2d 69 6e | 73 74 72 75 6d 65 6e 74 |p-all-in|strument|
|000014e0| 65 64 2d 6c 69 73 74 20 | 65 6c 70 2d 69 6e 73 74 |ed-list |elp-inst|
|000014f0| 72 75 6d 65 6e 74 2d 66 | 75 6e 63 74 69 6f 6e 5d |rument-f|unction]|
|00001500| 20 32 20 28 23 24 20 2e | 20 35 31 39 35 29 20 22 | 2 (#$ .| 5195) "|
|00001510| 61 4d 61 73 74 65 72 20 | 66 75 6e 63 74 69 6f 6e |aMaster |function|
|00001520| 3a 20 22 5d 29 0a 23 40 | 32 39 20 55 6e 73 65 74 |: "]).#@|29 Unset|
|00001530| 73 20 74 68 65 20 6d 61 | 73 74 65 72 20 66 75 6e |s the ma|ster fun|
|00001540| 63 74 69 6f 6e 2e 1f 0a | 28 64 65 66 61 6c 69 61 |ction...|(defalia|
|00001550| 73 20 27 65 6c 70 2d 75 | 6e 73 65 74 2d 6d 61 73 |s 'elp-u|nset-mas|
|00001560| 74 65 72 20 23 5b 6e 69 | 6c 20 22 c0 11 c2 89 13 |ter #[ni|l ".....|
|00001570| 87 22 20 5b 6e 69 6c 20 | 65 6c 70 2d 6d 61 73 74 |." [nil |elp-mast|
|00001580| 65 72 20 74 20 65 6c 70 | 2d 72 65 63 6f 72 64 2d |er t elp|-record-|
|00001590| 70 5d 20 32 20 28 23 24 | 20 2e 20 35 34 31 39 29 |p] 2 (#$| . 5419)|
|000015a0| 20 6e 69 6c 5d 29 0a 28 | 64 65 66 61 6c 69 61 73 | nil]).(|defalias|
|000015b0| 20 27 65 6c 70 2d 67 65 | 74 2d 74 69 6d 65 20 23 | 'elp-ge|t-time #|
|000015c0| 5b 6e 69 6c 20 22 c0 20 | 19 c2 09 41 40 21 c2 c3 |[nil ". |...A@!..|
|000015d0| 09 38 21 c4 a5 5c 5c 29 | 87 22 20 5b 63 75 72 72 |.8!..\\)|." [curr|
|000015e0| 65 6e 74 2d 74 69 6d 65 | 20 6e 6f 77 20 66 6c 6f |ent-time| now flo|
|000015f0| 61 74 20 32 20 31 65 2b | 30 30 36 5d 20 34 5d 29 |at 2 1e+|006] 4])|
|00001600| 0a 28 70 75 74 20 28 71 | 75 6f 74 65 20 65 6c 70 |.(put (q|uote elp|
|00001610| 2d 67 65 74 2d 74 69 6d | 65 29 20 28 71 75 6f 74 |-get-tim|e) (quot|
|00001620| 65 20 62 79 74 65 2d 6f | 70 74 69 6d 69 7a 65 72 |e byte-o|ptimizer|
|00001630| 29 20 28 71 75 6f 74 65 | 20 62 79 74 65 2d 63 6f |) (quote| byte-co|
|00001640| 6d 70 69 6c 65 2d 69 6e | 6c 69 6e 65 2d 65 78 70 |mpile-in|line-exp|
|00001650| 61 6e 64 29 29 0a 23 40 | 31 39 39 20 54 68 69 73 |and)).#@|199 This|
|00001660| 20 66 75 6e 63 74 69 6f | 6e 20 68 61 73 20 62 65 | functio|n has be|
|00001670| 65 6e 20 69 6e 73 74 72 | 75 6d 65 6e 74 65 64 20 |en instr|umented |
|00001680| 66 6f 72 20 70 72 6f 66 | 69 6c 69 6e 67 20 62 79 |for prof|iling by|
|00001690| 20 74 68 65 20 45 4c 50 | 2e 0a 45 4c 50 20 69 73 | the ELP|..ELP is|
|000016a0| 20 74 68 65 20 45 6d 61 | 63 73 20 4c 69 73 70 20 | the Ema|cs Lisp |
|000016b0| 50 72 6f 66 69 6c 65 72 | 2e 20 20 54 6f 20 72 65 |Profiler|.  To re|
|000016c0| 73 74 6f 72 65 20 74 68 | 65 20 66 75 6e 63 74 69 |store th|e functi|
|000016d0| 6f 6e 20 74 6f 20 69 74 | 73 0a 6f 72 69 67 69 6e |on to it|s.origin|
|000016e0| 61 6c 20 64 65 66 69 6e | 69 74 69 6f 6e 2c 20 75 |al defin|ition, u|
|000016f0| 73 65 20 5c 5b 65 6c 70 | 2d 72 65 73 74 6f 72 65 |se \[elp|-restore|
|00001700| 2d 66 75 6e 63 74 69 6f | 6e 5d 20 6f 72 20 5c 5b |-functio|n] or \[|
|00001710| 65 6c 70 2d 72 65 73 74 | 6f 72 65 2d 61 6c 6c 5d |elp-rest|ore-all]|
|00001720| 2e 1f 0a 28 64 65 66 61 | 6c 69 61 73 20 27 65 6c |...(defa|lias 'el|
|00001730| 70 2d 77 72 61 70 70 65 | 72 20 23 5b 28 66 75 6e |p-wrappe|r #[(fun|
|00001740| 73 79 6d 20 69 6e 74 65 | 72 61 63 74 69 76 65 2d |sym inte|ractive-|
|00001750| 70 20 61 72 67 73 29 20 | 22 08 83 5c 66 00 09 08 |p args) |"..\f...|
|00001760| 3d 83 5c 66 00 c2 13 09 | 5c 66 4e 89 1d c6 48 1e |=.\f....|\fN...H.|
|00001770| 07 c8 1e 09 0e 07 84 5c | 22 00 ca cb 09 5c 22 88 |.......\|"....\".|
|00001780| 0b 84 3d 00 0e 5c 66 83 | 32 00 cd 0e 07 21 82 38 |..=..\f.|2....!.8|
|00001790| 00 ce 0e 07 0e 0f 5c 22 | 16 09 82 8f 00 d0 20 1e |......\"|...... .|
|000017a0| 11 d2 0e 11 41 40 21 d2 | c6 0e 11 38 21 d3 a5 5c |....A@!.|...8!..\|
|000017b0| 5c 29 1e 14 0d d5 0d d5 | 48 54 49 88 0e 5c 66 83 |\)......|HTI..\f.|
|000017c0| 67 00 cd 0e 07 21 82 6d | 00 ce 0e 07 0e 0f 5c 22 |g....!.m|......\"|
|000017d0| 16 09 0d d6 0d d6 48 d0 | 20 1e 11 d2 0e 11 41 40 |......H.| .....A@|
|000017e0| 21 d2 c6 0e 11 38 21 d3 | a5 5c 5c 29 0e 14 5a 5c |!....8!.|.\\)..Z\|
|000017f0| 5c 49 88 29 08 83 9b 00 | 09 08 3d 83 9b 00 c8 13 |\I.)....|..=.....|
|00001800| 0e 09 2b 87 22 20 5b 65 | 6c 70 2d 6d 61 73 74 65 |..+." [e|lp-maste|
|00001810| 72 20 66 75 6e 73 79 6d | 20 74 20 65 6c 70 2d 72 |r funsym| t elp-r|
|00001820| 65 63 6f 72 64 2d 70 20 | 65 6c 70 2d 74 69 6d 65 |ecord-p |elp-time|
|00001830| 72 2d 69 6e 66 6f 2d 70 | 72 6f 70 65 72 74 79 20 |r-info-p|roperty |
|00001840| 69 6e 66 6f 20 32 20 66 | 75 6e 63 20 6e 69 6c 20 |info 2 f|unc nil |
|00001850| 72 65 73 75 6c 74 20 65 | 72 72 6f 72 20 22 25 73 |result e|rror "%s|
|00001860| 20 69 73 20 6e 6f 74 20 | 69 6e 73 74 72 75 6d 65 | is not |instrume|
|00001870| 6e 74 65 64 20 66 6f 72 | 20 70 72 6f 66 69 6c 69 |nted for| profili|
|00001880| 6e 67 2e 22 20 69 6e 74 | 65 72 61 63 74 69 76 65 |ng." int|eractive|
|00001890| 2d 70 20 63 61 6c 6c 2d | 69 6e 74 65 72 61 63 74 |-p call-|interact|
|000018a0| 69 76 65 6c 79 20 61 70 | 70 6c 79 20 61 72 67 73 |ively ap|ply args|
|000018b0| 20 63 75 72 72 65 6e 74 | 2d 74 69 6d 65 20 6e 6f | current|-time no|
|000018c0| 77 20 66 6c 6f 61 74 20 | 31 65 2b 30 30 36 20 65 |w float |1e+006 e|
|000018d0| 6e 74 65 72 2d 74 69 6d | 65 20 30 20 31 5d 20 38 |nter-tim|e 0 1] 8|
|000018e0| 20 28 23 24 20 2e 20 35 | 37 32 34 29 5d 29 0a 28 | (#$ . 5|724)]).(|
|000018f0| 62 79 74 65 2d 63 6f 64 | 65 20 22 c0 c1 21 84 08 |byte-cod|e "..!..|
|00001900| 00 c2 11 c1 0b 42 13 c0 | c4 21 84 14 00 c2 14 c4 |.....B..|.!......|
|00001910| 0b 42 13 c0 c5 21 84 20 | 00 c2 15 c5 0b 42 13 c0 |.B...!. |.....B..|
|00001920| c6 21 84 2d 00 c2 16 06 | c6 0b 42 13 c2 87 22 20 |.!.-....|..B..." |
|00001930| 5b 62 6f 75 6e 64 70 20 | 65 6c 70 2d 66 69 65 6c |[boundp |elp-fiel|
|00001940| 64 2d 6c 65 6e 20 6e 69 | 6c 20 63 75 72 72 65 6e |d-len ni|l curren|
|00001950| 74 2d 6c 6f 61 64 2d 6c | 69 73 74 20 65 6c 70 2d |t-load-l|ist elp-|
|00001960| 63 63 2d 6c 65 6e 20 65 | 6c 70 2d 61 74 2d 6c 65 |cc-len e|lp-at-le|
|00001970| 6e 20 65 6c 70 2d 65 74 | 2d 6c 65 6e 5d 20 32 29 |n elp-et|-len] 2)|
|00001980| 0a 28 64 65 66 61 6c 69 | 61 73 20 27 65 6c 70 2d |.(defali|as 'elp-|
|00001990| 73 6f 72 74 2d 62 79 2d | 63 61 6c 6c 2d 63 6f 75 |sort-by-|call-cou|
|000019a0| 6e 74 20 23 5b 28 76 65 | 63 31 20 76 65 63 32 29 |nt #[(ve|c1 vec2)|
|000019b0| 20 22 08 c1 48 5c 6e c1 | 48 59 87 22 20 5b 76 65 | "..H\n.|HY." [ve|
|000019c0| 63 31 20 30 20 76 65 63 | 32 5d 20 33 5d 29 0a 28 |c1 0 vec|2] 3]).(|
|000019d0| 64 65 66 61 6c 69 61 73 | 20 27 65 6c 70 2d 73 6f |defalias| 'elp-so|
|000019e0| 72 74 2d 62 79 2d 74 6f | 74 61 6c 2d 74 69 6d 65 |rt-by-to|tal-time|
|000019f0| 20 23 5b 28 76 65 63 31 | 20 76 65 63 32 29 20 22 | #[(vec1| vec2) "|
|00001a00| 08 c1 48 5c 6e c1 48 59 | 87 22 20 5b 76 65 63 31 |..H\n.HY|." [vec1|
|00001a10| 20 31 20 76 65 63 32 5d | 20 33 5d 29 0a 28 64 65 | 1 vec2]| 3]).(de|
|00001a20| 66 61 6c 69 61 73 20 27 | 65 6c 70 2d 73 6f 72 74 |falias '|elp-sort|
|00001a30| 2d 62 79 2d 61 76 65 72 | 61 67 65 2d 74 69 6d 65 |-by-aver|age-time|
|00001a40| 20 23 5b 28 76 65 63 31 | 20 76 65 63 32 29 20 22 | #[(vec1| vec2) "|
|00001a50| 08 c1 48 5c 6e c1 48 59 | 87 22 20 5b 76 65 63 31 |..H\n.HY|." [vec1|
|00001a60| 20 32 20 76 65 63 32 5d | 20 33 5d 29 0a 28 64 65 | 2 vec2]| 3]).(de|
|00001a70| 66 61 6c 69 61 73 20 27 | 65 6c 70 2d 70 61 63 6b |falias '|elp-pack|
|00001a80| 2d 6e 75 6d 62 65 72 20 | 23 5b 28 6e 75 6d 62 65 |-number |#[(numbe|
|00001a90| 72 20 77 69 64 74 68 29 | 20 22 08 47 09 58 83 09 |r width)| ".G.X..|
|00001aa0| 00 08 87 c2 c3 08 5c 22 | 83 2b 00 08 c4 94 c4 95 |......\"|.+......|
|00001ab0| 4f c5 09 c6 95 5a c6 94 | 5b 5a c7 5a 4f c8 08 c6 |O....Z..|[Z.ZO...|
|00001ac0| 94 c6 95 4f 51 87 08 c5 | 09 4f b0 01 87 22 20 5b |...OQ...|.O..." [|
|00001ad0| 6e 75 6d 62 65 72 20 77 | 69 64 74 68 20 73 74 72 |number w|idth str|
|00001ae0| 69 6e 67 2d 6d 61 74 63 | 68 20 22 5e 5c 5c 28 2e |ing-matc|h "^\\(.|
|00001af0| 2a 5c 5c 29 5c 5c 28 65 | 5b 2b 2d 5d 2e 2a 5c 5c |*\\)\\(e|[+-].*\\|
|00001b00| 29 24 22 20 31 20 30 20 | 32 20 33 20 22 2e 2e 2e |)$" 1 0 |2 3 "...|
|00001b10| 22 5d 20 35 5d 29 0a 28 | 70 75 74 20 28 71 75 6f |"] 5]).(|put (quo|
|00001b20| 74 65 20 65 6c 70 2d 70 | 61 63 6b 2d 6e 75 6d 62 |te elp-p|ack-numb|
|00001b30| 65 72 29 20 28 71 75 6f | 74 65 20 62 79 74 65 2d |er) (quo|te byte-|
|00001b40| 6f 70 74 69 6d 69 7a 65 | 72 29 20 28 71 75 6f 74 |optimize|r) (quot|
|00001b50| 65 20 62 79 74 65 2d 63 | 6f 6d 70 69 6c 65 2d 69 |e byte-c|ompile-i|
|00001b60| 6e 6c 69 6e 65 2d 65 78 | 70 61 6e 64 29 29 0a 28 |nline-ex|pand)).(|
|00001b70| 64 65 66 61 6c 69 61 73 | 20 27 65 6c 70 2d 6f 75 |defalias| 'elp-ou|
|00001b80| 74 70 75 74 2d 72 65 73 | 75 6c 74 20 23 5b 28 72 |tput-res|ult #[(r|
|00001b90| 65 73 75 6c 74 76 65 63 | 29 20 22 08 c1 48 1a 08 |esultvec|) "..H..|
|00001ba0| c3 48 1c 08 c5 48 1e 06 | 08 c7 48 1e 08 c9 1e 5c |.H...H..|..H....\|
|00001bb0| 6e c9 1e 0b c9 1e 5c 66 | cd 5c 6e 21 16 5c 6e cd |n.....\f|.\n!.\n.|
|00001bc0| 5c 66 21 16 0b cd 0e 06 | 21 16 5c 66 0e 0e 85 3a |\f!.....|!.\f...:|
|00001bd0| 00 0e 0e a7 85 3a 00 5c | 6e 0e 0e 57 3f 85 07 01 |.....:.\|n..W?...|
|00001be0| 0e 08 63 88 cf d0 0e 11 | 0e 08 47 5b 5c 5c c5 5c |..c.....|..G[\\.\|
|00001bf0| 5c 5c 22 88 0e 5c 6e 63 | 88 cf d0 0e 12 0e 5c 6e |\\"..\nc|......\n|
|00001c00| 47 5b 5c 5c c5 5c 5c 5c | 22 88 0e 0b 0e 13 1e 14 |G[\\.\\\|".......|
|00001c10| 89 1e 15 47 0e 14 58 83 | 75 00 0e 15 82 a5 00 d6 |...G..X.|u.......|
|00001c20| d7 0e 15 5c 22 83 9d 00 | 0e 15 c3 94 c3 95 4f c1 |...\"...|......O.|
|00001c30| 0e 14 c5 95 5a c5 94 5b | 5a c7 5a 4f d8 0e 15 c5 |....Z..[|Z.ZO....|
|00001c40| 94 c5 95 4f 51 82 a5 00 | 0e 15 c1 0e 14 4f b0 01 |...OQ...|.....O..|
|00001c50| 2a 0e 5c 66 0e 19 1e 14 | 89 1e 15 47 0e 14 58 83 |*.\f....|...G..X.|
|00001c60| bb 00 0e 15 82 eb 00 d6 | d7 0e 15 5c 22 83 e3 00 |........|...\"...|
|00001c70| 0e 15 c3 94 c3 95 4f c1 | 0e 14 c5 95 5a c5 94 5b |......O.|....Z..[|
|00001c80| 5a c7 5a 4f d8 0e 15 c5 | 94 c5 95 4f 51 82 eb 00 |Z.ZO....|...OQ...|
|00001c90| 0e 15 c1 0e 14 4f b0 01 | 2a 1e 1a 89 1e 1b 63 88 |.....O..|*.....c.|
|00001ca0| cf d0 0e 13 0e 1b 47 5b | 5c 5c c5 5c 5c 5c 22 88 |......G[|\\.\\\".|
|00001cb0| 0e 1a 63 88 2a dc 63 2e | 07 87 22 20 5b 72 65 73 |..c.*.c.|.." [res|
|00001cc0| 75 6c 74 76 65 63 20 30 | 20 63 63 20 31 20 74 74 |ultvec 0| cc 1 tt|
|00001cd0| 20 32 20 61 74 20 33 20 | 73 79 6d 6e 61 6d 65 20 | 2 at 3 |symname |
|00001ce0| 6e 69 6c 20 63 61 6c 6c | 63 6e 74 20 74 6f 74 61 |nil call|cnt tota|
|00001cf0| 6c 74 69 6d 65 20 61 76 | 65 74 69 6d 65 20 6e 75 |ltime av|etime nu|
|00001d00| 6d 62 65 72 2d 74 6f 2d | 73 74 72 69 6e 67 20 65 |mber-to-|string e|
|00001d10| 6c 70 2d 72 65 70 6f 72 | 74 2d 6c 69 6d 69 74 20 |lp-repor|t-limit |
|00001d20| 69 6e 73 65 72 74 2d 63 | 68 61 72 20 33 32 20 65 |insert-c|har 32 e|
|00001d30| 6c 70 2d 66 69 65 6c 64 | 2d 6c 65 6e 20 65 6c 70 |lp-field|-len elp|
|00001d40| 2d 63 63 2d 6c 65 6e 20 | 65 6c 70 2d 65 74 2d 6c |-cc-len |elp-et-l|
|00001d50| 65 6e 20 77 69 64 74 68 | 20 6e 75 6d 62 65 72 20 |en width| number |
|00001d60| 73 74 72 69 6e 67 2d 6d | 61 74 63 68 20 22 5e 5c |string-m|atch "^\|
|00001d70| 5c 28 2e 2a 5c 5c 29 5c | 5c 28 65 5b 2b 2d 5d 2e |\(.*\\)\|\(e[+-].|
|00001d80| 2a 5c 5c 29 24 22 20 22 | 2e 2e 2e 22 20 65 6c 70 |*\\)$" "|..." elp|
|00001d90| 2d 61 74 2d 6c 65 6e 20 | 61 74 73 74 72 20 74 74 |-at-len |atstr tt|
|00001da0| 73 74 72 20 22 5c 6e 22 | 5d 20 37 5d 29 0a 23 40 |str "\n"|] 7]).#@|
|00001db0| 31 38 32 20 44 69 73 70 | 6c 61 79 20 63 75 72 72 |182 Disp|lay curr|
|00001dc0| 65 6e 74 20 70 72 6f 66 | 69 6c 69 6e 67 20 72 65 |ent prof|iling re|
|00001dd0| 73 75 6c 74 73 2e 0a 49 | 66 20 60 65 6c 70 2d 72 |sults..I|f `elp-r|
|00001de0| 65 73 65 74 2d 61 66 74 | 65 72 2d 72 65 73 75 6c |eset-aft|er-resul|
|00001df0| 74 73 27 20 69 73 20 6e | 6f 6e 2d 6e 69 6c 2c 20 |ts' is n|on-nil, |
|00001e00| 74 68 65 6e 20 63 75 72 | 72 65 6e 74 20 70 72 6f |then cur|rent pro|
|00001e10| 66 69 6c 69 6e 67 0a 69 | 6e 66 6f 72 6d 61 74 69 |filing.i|nformati|
|00001e20| 6f 6e 20 66 6f 72 20 61 | 6c 6c 20 69 6e 73 74 72 |on for a|ll instr|
|00001e30| 75 6d 65 6e 74 65 64 20 | 66 75 6e 63 74 69 6f 6e |umented |function|
|00001e40| 73 20 61 72 65 20 72 65 | 73 65 74 20 61 66 74 65 |s are re|set afte|
|00001e50| 72 20 72 65 73 75 6c 74 | 73 20 61 72 65 0a 64 69 |r result|s are.di|
|00001e60| 73 70 6c 61 79 65 64 2e | 1f 0a 28 64 65 66 61 6c |splayed.|..(defal|
|00001e70| 69 61 73 20 27 65 6c 70 | 2d 72 65 73 75 6c 74 73 |ias 'elp|-results|
|00001e80| 20 23 5b 6e 69 6c 20 22 | 70 c0 09 21 1a 1b 5c 6e | #[nil "|p..!..\n|
|00001e90| 71 88 c4 20 88 c5 20 88 | c6 1e 07 c8 1e 09 c8 47 |q.. .. .|.......G|
|00001ea0| 89 1e 5c 6e 1e 0b cc 1e | 0d cc 47 1e 0e cf 1e 10 |..\n....|..G.....|
|00001eb0| cf 47 1e 11 d2 1e 13 d2 | 47 1e 14 d5 d6 0e 17 5c |.G......|G......\|
|00001ec0| 22 1e 18 0e 09 63 88 0e | 07 0e 5c 6e 56 83 51 00 |"....c..|..\nV.Q.|
|00001ed0| d9 da 0e 07 0e 5c 6e 5a | 5c 22 88 0e 07 16 0b db |.....\nZ|\"......|
|00001ee0| 0e 0d db 0e 10 db 0e 13 | dc b1 07 88 d9 dd 0e 0b |........|........|
|00001ef0| 5c 22 88 db 63 88 d9 dd | 0e 0e 5c 22 88 db 63 88 |\"..c...|..\"..c.|
|00001f00| d9 dd 0e 11 5c 22 88 db | 63 88 d9 dd 0e 14 5c 22 |....\"..|c.....\"|
|00001f10| 88 dc 63 88 0e 1e 83 8f | 00 df 0e 18 0e 1e 5c 22 |..c.....|......\"|
|00001f20| 16 18 d5 e0 0e 18 5c 22 | 88 2e 0b 0b 71 88 e1 5c |......\"|....q..\|
|00001f30| 6e 21 88 0e 5c 22 85 a5 | 00 e3 20 2a 87 22 20 5b |n!..\"..|.. *." [|
|00001f40| 67 65 74 2d 62 75 66 66 | 65 72 2d 63 72 65 61 74 |get-buff|er-creat|
|00001f50| 65 20 65 6c 70 2d 72 65 | 73 75 6c 74 73 2d 62 75 |e elp-re|sults-bu|
|00001f60| 66 66 65 72 20 72 65 73 | 75 6c 74 73 62 75 66 20 |ffer res|ultsbuf |
|00001f70| 63 75 72 62 75 66 20 65 | 72 61 73 65 2d 62 75 66 |curbuf e|rase-buf|
|00001f80| 66 65 72 20 62 65 67 69 | 6e 6e 69 6e 67 2d 6f 66 |fer begi|nning-of|
|00001f90| 2d 62 75 66 66 65 72 20 | 30 20 6c 6f 6e 67 65 73 |-buffer |0 longes|
|00001fa0| 74 20 22 46 75 6e 63 74 | 69 6f 6e 20 4e 61 6d 65 |t "Funct|ion Name|
|00001fb0| 22 20 74 69 74 6c 65 20 | 74 69 74 6c 65 6c 65 6e |" title |titlelen|
|00001fc0| 20 65 6c 70 2d 66 69 65 | 6c 64 2d 6c 65 6e 20 22 | elp-fie|ld-len "|
|00001fd0| 43 61 6c 6c 20 43 6f 75 | 6e 74 22 20 63 63 2d 68 |Call Cou|nt" cc-h|
|00001fe0| 65 61 64 65 72 20 65 6c | 70 2d 63 63 2d 6c 65 6e |eader el|p-cc-len|
|00001ff0| 20 22 45 6c 61 70 73 65 | 64 20 54 69 6d 65 22 20 | "Elapse|d Time" |
|00002000| 65 74 2d 68 65 61 64 65 | 72 20 65 6c 70 2d 65 74 |et-heade|r elp-et|
|00002010| 2d 6c 65 6e 20 22 41 76 | 65 72 61 67 65 20 54 69 |-len "Av|erage Ti|
|00002020| 6d 65 22 20 61 74 2d 68 | 65 61 64 65 72 20 65 6c |me" at-h|eader el|
|00002030| 70 2d 61 74 2d 6c 65 6e | 20 6d 61 70 63 61 72 20 |p-at-len| mapcar |
|00002040| 23 5b 28 66 75 6e 73 79 | 6d 29 20 22 08 09 4e 1a |#[(funsy|m) "..N.|
|00002050| c3 c4 08 5c 22 1d 5c 6e | c6 48 1e 07 5c 6e c8 48 |...\".\n|.H..\n.H|
|00002060| 1e 09 5c 6e 84 1e 00 ca | 0d b1 02 82 40 00 0e 0b |..\n....|....@...|
|00002070| 0d 47 5d 16 0b cc 0e 07 | 0e 09 0e 07 c6 55 83 35 |.G].....|.....U.5|
|00002080| 00 cd 82 3e 00 ce 0e 09 | 21 ce 0e 07 21 a5 0d 24 |...>....|!...!..$|
|00002090| 2c 87 22 20 5b 66 75 6e | 73 79 6d 20 65 6c 70 2d |,." [fun|sym elp-|
|000020a0| 74 69 6d 65 72 2d 69 6e | 66 6f 2d 70 72 6f 70 65 |timer-in|fo-prope|
|000020b0| 72 74 79 20 69 6e 66 6f | 20 66 6f 72 6d 61 74 20 |rty info| format |
|000020c0| 22 25 73 22 20 73 79 6d | 6e 61 6d 65 20 30 20 63 |"%s" sym|name 0 c|
|000020d0| 63 20 31 20 74 74 20 22 | 4e 6f 20 70 72 6f 66 69 |c 1 tt "|No profi|
|000020e0| 6c 69 6e 67 20 69 6e 66 | 6f 72 6d 61 74 69 6f 6e |ling inf|ormation|
|000020f0| 20 66 6f 75 6e 64 20 66 | 6f 72 3a 20 22 20 6c 6f | found f|or: " lo|
|00002100| 6e 67 65 73 74 20 76 65 | 63 74 6f 72 20 30 2e 30 |ngest ve|ctor 0.0|
|00002110| 20 66 6c 6f 61 74 5d 20 | 36 5d 20 65 6c 70 2d 61 | float] |6] elp-a|
|00002120| 6c 6c 2d 69 6e 73 74 72 | 75 6d 65 6e 74 65 64 2d |ll-instr|umented-|
|00002130| 6c 69 73 74 20 72 65 73 | 76 65 63 20 69 6e 73 65 |list res|vec inse|
|00002140| 72 74 2d 63 68 61 72 20 | 33 32 20 22 20 20 22 20 |rt-char |32 "  " |
|00002150| 22 5c 6e 22 20 36 31 20 | 65 6c 70 2d 73 6f 72 74 |"\n" 61 |elp-sort|
|00002160| 2d 62 79 2d 66 75 6e 63 | 74 69 6f 6e 20 73 6f 72 |-by-func|tion sor|
|00002170| 74 20 65 6c 70 2d 6f 75 | 74 70 75 74 2d 72 65 73 |t elp-ou|tput-res|
|00002180| 75 6c 74 20 70 6f 70 2d | 74 6f 2d 62 75 66 66 65 |ult pop-|to-buffe|
|00002190| 72 20 65 6c 70 2d 72 65 | 73 65 74 2d 61 66 74 65 |r elp-re|set-afte|
|000021a0| 72 2d 72 65 73 75 6c 74 | 73 20 65 6c 70 2d 72 65 |r-result|s elp-re|
|000021b0| 73 65 74 2d 61 6c 6c 5d | 20 38 20 28 23 24 20 2e |set-all]| 8 (#$ .|
|000021c0| 20 37 36 30 34 29 20 6e | 69 6c 5d 29 0a 23 40 33 | 7604) n|il]).#@3|
|000021d0| 39 20 53 75 62 6d 69 74 | 20 76 69 61 20 6d 61 69 |9 Submit| via mai|
|000021e0| 6c 2c 20 61 20 62 75 67 | 20 72 65 70 6f 72 74 20 |l, a bug| report |
|000021f0| 6f 6e 20 65 6c 70 2e 1f | 0a 28 64 65 66 61 6c 69 |on elp..|.(defali|
|00002200| 61 73 20 27 65 6c 70 2d | 73 75 62 6d 69 74 2d 62 |as 'elp-|submit-b|
|00002210| 75 67 2d 72 65 70 6f 72 | 74 20 23 5b 6e 69 6c 20 |ug-repor|t #[nil |
|00002220| 22 c0 c1 21 85 14 00 c2 | c3 21 85 14 00 c4 0d c6 |"..!....|.!......|
|00002230| 0e 07 50 c8 23 87 22 20 | 5b 79 2d 6f 72 2d 6e 2d |..P.#." |[y-or-n-|
|00002240| 70 20 22 44 6f 20 79 6f | 75 20 77 61 6e 74 20 74 |p "Do yo|u want t|
|00002250| 6f 20 73 75 62 6d 69 74 | 20 61 20 72 65 70 6f 72 |o submit| a repor|
|00002260| 74 20 6f 6e 20 65 6c 70 | 3f 20 22 20 72 65 71 75 |t on elp|? " requ|
|00002270| 69 72 65 20 72 65 70 6f | 72 74 65 72 20 72 65 70 |ire repo|rter rep|
|00002280| 6f 72 74 65 72 2d 73 75 | 62 6d 69 74 2d 62 75 67 |orter-su|bmit-bug|
|00002290| 2d 72 65 70 6f 72 74 20 | 65 6c 70 2d 68 65 6c 70 |-report |elp-help|
|000022a0| 2d 61 64 64 72 65 73 73 | 20 22 65 6c 70 20 22 20 |-address| "elp " |
|000022b0| 65 6c 70 2d 76 65 72 73 | 69 6f 6e 20 28 65 6c 70 |elp-vers|ion (elp|
|000022c0| 2d 72 65 70 6f 72 74 2d | 6c 69 6d 69 74 20 65 6c |-report-|limit el|
|000022d0| 70 2d 72 65 73 65 74 2d | 61 66 74 65 72 2d 72 65 |p-reset-|after-re|
|000022e0| 73 75 6c 74 73 20 65 6c | 70 2d 73 6f 72 74 2d 62 |sults el|p-sort-b|
|000022f0| 79 2d 66 75 6e 63 74 69 | 6f 6e 29 5d 20 34 20 28 |y-functi|on)] 4 (|
|00002300| 23 24 20 2e 20 38 36 35 | 38 29 20 6e 69 6c 5d 29 |#$ . 865|8) nil])|
|00002310| 0a 28 70 72 6f 76 69 64 | 65 20 28 71 75 6f 74 65 |.(provid|e (quote|
|00002320| 20 65 6c 70 29 29 0a    |                         | elp)). |        |
+--------+-------------------------+-------------------------+--------+--------+